Top 10k strings from Piano (19xx)(-).bas in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX-81 & Sinclair QL - Various / Sinclair QL - Various (TOSEC-v2006-04-09) /

Back to the directory listing

   1 640 p_valmis 0
   1 610 END REPeat soita
   1 600  END IF 
   1 590   lask=0
   1 580   PRINT
   1 570  IF lask >=12 THEN 
   1 560  PRINT nuotti$(k);" ";
   1 550  lask=lask+1
   1 540  IF bon:BEEP kesto,kork(k)
   1 520  k = (okt-1)*n+c
   1 510  IF c>n:okt=key$(c):GO TO 430
   1 500  IF c=0 THEN GO TO 430
   1 490  c=c$ INSTR key$
   1 480  IF c=53:kesto=5000
   1 470  IF c=52:kesto=-1
   1 460  IF c= 9:p_vari:REMark 2000
   1 450  IF c=27:EXIT soita
   1 440  c=CODE(c$)
   1 430  c$=INKEY$:IF c$="":GO TO 430
   1 420 REPeat soita
   1 410 key$="zsxdcvgbhnjm,12"
   1 400 lask=0
   1 390 okt = 1
   1 370 PRINT"Octaves: 1 2"
   1 360 PRINT"Play: Two lowest ";"keyboard rows"
   1 350 PRINT"Change duration 4 ja 5"
   1 330 CLS:INK vari
   1 32080 END DEFine 
   1 32070  PRINT#0,"Saved"!a$
   1 32060  DELETE a$:SAVE a$
   1 32050  IF dr=2:a$="ram2_"&a$
   1 32040  IF dr=1:a$="ram1_"&a$
   1 32030  LOCal a$:a$="piano"
   1 32020 DEFine PROCedure resave (dr)
   1 32010 resave 2:STOP
   1 32000 resave 1:STOP
   1 320 vari=7:kesto=5000
   1 31990 STOP
   1 30100 END DEFine p_valmis
   1 30090  PRINT#ch,!s!"sec"
   1 30080  IF m>0 THEN PRINT#ch,!m!"min";
   1 30070  IF t>0 THEN PRINT#ch,!t!"h";
   1 30060  m=INT(s/60):s=s-60*m
   1 30050  t=INT(s/3600):s=s-t*3600
   1 30040  s=DATE-aika
   1 30030  PRINT#ch:PRINT#ch,"READY, elapsed";
   1 30020  LOCal t,m,s:INK 7:FLASH 0
   1 30010  REMark 13.09.85
   1 30000 DEFine PROCedure p_valmis (ch)
   1 300 END FOR i
   1 290  nuotti$(n+i)=a$(2*i-1 TO 2*i)
   1 280  nuotti$(i)=a$(2*i-1 TO 2*i)
   1 270 FOR i=1 TO n
   1 260 READ a$
   1 250 FOR i=1 TO 2*n:READ kork(i)
   1 230 DATA "C C#D D#E F F#G G#A A#B C "
   1 220 DIM nuotti$(2*n,2)
   1 2090 END DEFine p_vari
   1 2080  INK vari
   1 2070  END SELect 
   1 2060   =5:vari=7
   1 2050   =6:vari=5
   1 2040   =4:vari=6
   1 2030   =2:vari=4
   1 20220 END DEFine p_varilogo
   1 20210  INK 2:AT 19,0:INPUT("CONTINUE: PRESS ENTER?")!v$:INK 7
   1 20200  AT 0,0:PRINT DAY$!DATE$
   1 2020   =7:vari=2
   1 20190  pv$=DATE$:vsi=pv$(1 TO 4)
   1 20180  INK 1:PRINT tpvm$:INK 5
   1 20170  CURSOR 222-6*LEN(tpvm$),90
   1 20160  CSIZE 2,0
   1 20150  END FOR i
   1 20140   PRINT ohj$(i);:INK 3
   1 20130   IF k THEN INK 6
   1 20120   FOR j=1 TO LEN(k$):IF ohj$(i)=k$(j):k=-1:GO TO 20130
   1 20110   k$="AEIOSTNHJKLMPRUVY
   1 20100   k=0:INK 3
   1 2010  SELect ON vari
   1 20090  FOR i=1 TO LEN(ohj$)
   1 20080  CURSOR 224-8*LEN(ohj$),110
   1 20070  PRINT "Timo Salmi":INK 7
   1 20060  CSIZE 3,1:CURSOR 224-8*10,70
   1 20050  PAPER#1,0:INK#1,4:CLS#1
   1 20040  WINDOW#1,448,200,32,16
   1 20030  OPEN#3,scr_513x256a0x0:PAPER#3,1:CLS#3:CLOSE#3
   1 20020  MODE 256
   1 20010  LOCal pv$,vsi,v$,i,j,k,k$
   1 20000 DEFine PROCedure p_varilogo(ohj$,tpvm$):REMark 09.09.85
   1 2000 DEFine PROCedure p_vari
   1 200 DATA 18 ,17, 15 ,14, 12 , 11
   1 190 DATA 33 ,31, 28 ,26, 24 , 22 ,20
   1 180 DATA 47 ,44, 41 ,38, 35 , 33
   1 170 REMark G G#  A   A#  B    C
   1 160 DATA 77 ,72, 67 ,63, 59 , 55 ,51
   1 150 REMark C C#  D   D#  E    F   F#
   1 140 DIM kork(2*n)
   1 110 p_varilogo "PIANO","21.10.85"
   1 100 CLEAR:aika=DATE:bon=-1
   1 "Esc to end, tab ";"for new color"